home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)g2.d64 / hi res loader (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  76 lines
  1. 100 GOTO330
  2. 110 :     HI-RES PICTURE LOADER
  3. 120 :
  4. 130 :         FIRST WRITTEN
  5. 140 :              BY
  6. 150 :
  7. 160 :            DON WHITE
  8. 170 :         47 ARIEL COURT
  9. 180 :        NEPEAN, ONTARIO
  10. 190 :            K2H 8J1
  11. 200 :
  12. 210 :          613-829-2082
  13. 220 :
  14. 230 :
  15. 240 :          RE-WRITTEN
  16. 250 :              BY
  17. 260 :
  18. 270 :         DAVID A. KIRK
  19. 280 :        1210 BALDWIN RD
  20. 290 :       LAPEER, MI  48446
  21. 300 :
  22. 310 :          313-664-9490
  23. 320 :
  24. 330 IFPEEK(167)=0THEN630
  25. 340 IFPEEK(167)=1THEN640
  26. 350 :
  27. 360 REM CHANGE BORDER OR SCREEN COLOR           WITH 'RETURN' GOING TO MENU
  28. 370 :
  29. 380 R=C(T):S=INT(RND(1)*16)
  30. 390 POKE53280,S:POKE667,R:SYS828
  31. 400 U=PEEK(203):IFU=64THEN400
  32. 410 IFU=1THEN500
  33. 420 IFU=7AND(PEEK(653)=0)ANDR>1THENR=R-1:GOTO390
  34. 430 IFU=7AND(PEEK(653)=1)ANDR<255THENR=R+1:GOTO390
  35. 440 IFU=2AND(PEEK(653)=0)ANDS>0THENS=S-1:GOTO390
  36. 450 IFU=2AND(PEEK(653)=1)ANDS<15THENS=S+1:GOTO390
  37. 460 GOTO400
  38. 470 :
  39. 480 REM       MENU SCREEN
  40. 490 :
  41. 500 POKEV+17,27:POKEV+24,21:PRINT"[147]":T=1
  42. 510 PRINT"    LAST PICTURE":FORI=1TON:PRINTSPC(4)P$(I):NEXT
  43. 520 PRINT"[192]>[145]
  44. 530 U[178][194](203):[139]U[178]64[167]530
  45. 540 [139]U[178]7[175]([194](653)[178]0)[175]T[179]N[170]1[167]T[178]T[170]1:[153]"  CMDCMDTAN>CMDCMD";
  46. 550 [139]U[178]7[175]([194](653)[178]1)[175]T[177]1[167]T[178]T[171]1:[153]"  CMDCMDONTAN>CMDCMD";
  47. 560 [139]U[178]1[167]580
  48. 570 [137]530
  49. 580 [139]T[178]1[167][151]V[170]17,59:[151]V[170]24,25:[153]"LOAD":[137]390
  50. 590 [151]V[170]17,59:[151]V[170]24,25:T[178]T[171]1:[153]"LOAD":[147] P$(T),8,1
  51. 600 :
  52. 610 [143]       INITIALIZATION
  53. 620 :
  54. 630 [151]167,1:[147]"SCREEN",8,1
  55. 640 [151]167,2:[156]:[140]:T[178]0:N[178]20:V[178]53248:[134]P$(N),C(N)
  56. 650 [129]I[178]1[164]N:[135]P$(I),C(I):[130]:[137]760
  57. 660 :
  58. 670 [143] PICTURE NAME DATA AND INITIAL           COLOR DATA
  59. 680 :
  60. 690 [131] FIG1,7,TEX,28,FIG2,137,HOPALONG,28,SQUEEZE,235
  61. 700 [131] GUY,80,FIG3,133,MOUND2,7,EYES,22,FRIENDS,251
  62. 710 [131] SINCOS2,44,SATELLITE,224,DONALD.DUCK,22,VM.THINGS,97,SESAME.ST,122
  63. 720 [131] NUDE.REV,1,VIS.ROSETTE,20,VIS.G1A,87
  64. 725 [131] XMAS.CARD.1,81,4HILL5,27
  65. 730 :
  66. 740 [143]       INSTRUCTIONS
  67. 750 :
  68. 760 [153]"LOAD  USE THE VERTICAL CURSOR FOR SELECTING   A PICTURE.
  69. 770 PRINT"  PRESS THE RETURN WHEN A SELECTION HAS   BEEN MADE.
  70. 780 [153]"  AFTER LOADING A PICTURE, YOU MAY USE
  71. 790 PRINT"  THE VERTICAL CURSOR TO CHANGE THE       COLOR OF THE SCREEN, AND
  72. 800 [153]"  THE HORIZONTAL CURSOR FOR THE           BORDER COLOR.
  73. 810 PRINT"  PRESS THE RETURN KEY WHEN FINISHED      VIEWING A PICTURE.
  74. 820 [161]A$:[139]A$[178]""[167]820
  75. 830 [137]500
  76.